home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MPWGCC (Machines).cpt / Miscellaneous / masm386.c < prev    next >
Encoding:
Text File  |  1990-02-21  |  5.6 KB  |  226 lines  |  [TEXT/MPS ]
  1. /* Subroutines for insn-output.c for Intel 80386 for masm assembler syntax.
  2.    Copyright (C) 1988 Free Software Foundation, Inc.
  3.  
  4. This file is part of GNU CC.
  5.  
  6. GNU CC is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. GNU CC is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GNU CC; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20.   
  21. FILE *aux_asm_out_file;
  22.  
  23. static tree *implicit_declares;
  24. int implicit_declares_max = 0;
  25. int implicit_declares_fillp = 0;
  26.  
  27.  
  28. add_to_implicit_list (t)
  29.      tree t;
  30. { 
  31.   if (implicit_declares_max > implicit_declares_fillp)
  32.     {
  33.       implicit_declares[implicit_declares_fillp++] = t;
  34.     }
  35.   else
  36.     {
  37.       tree *new;
  38.       int i;
  39.  
  40.       implicit_declares_max = 2 * (implicit_declares_max + 10);
  41.       new = (tree *)(xmalloc (implicit_declares_max * sizeof (tree *)));
  42.       for (i = 0; i < implicit_declares_fillp; i++)
  43.     new[i] = implicit_declares[i];
  44.       implicit_declares = new;
  45.       implicit_declares[implicit_declares_fillp++] = t;
  46.     }
  47. }
  48.  
  49.  
  50. write_implicit_declares ()
  51. {
  52.   int i;
  53.   for (i = 0; i < implicit_declares_fillp; i++)
  54.     {
  55.       tree t;
  56.       t = implicit_declares[i];
  57.       if (!IDENTIFIER_GLOBAL_VALUE (t) && IDENTIFIER_IMPLICIT_DECL (t))
  58.     {            /* avoid repeats */
  59.       IDENTIFIER_IMPLICIT_DECL (t) = 0;
  60.       fprintf (aux_asm_out_file, "EXTRN ");
  61.       assemble_name (aux_asm_out_file, IDENTIFIER_POINTER (t));
  62.       fprintf (aux_asm_out_file, ":NEAR ; implicit\n");
  63.     }
  64.     }
  65. }
  66.       
  67.  
  68. void
  69. asm_write_decls (decls, toplevel)
  70.      int toplevel;     
  71.      tree decls;     
  72. {
  73.   tree tr, t;
  74.   char *type, *size;
  75.   tr = nreverse (decls);
  76.   for (t = tr; t; t = TREE_CHAIN (t))
  77.     { 
  78.       type = 0;
  79.       size = 0;
  80.       if (TREE_CODE (t) == FUNCTION_DECL
  81.       && (!toplevel || TREE_ASM_WRITTEN (t)))
  82.     {
  83.       if (!toplevel && IDENTIFIER_IMPLICIT_DECL (DECL_NAME (t)))
  84.         { 
  85.           add_to_implicit_list (DECL_NAME (t));
  86.           continue;
  87.         }
  88.       if (TREE_PUBLIC (t)
  89.           && (DECL_INITIAL (t)))
  90.         type = "PUBLIC "; 
  91.       else {
  92.         if (TREE_PUBLIC (t) || TREE_EXTERNAL (t))
  93.           {
  94.         type = "EXTRN ";
  95.         size = "NEAR";
  96.           }
  97.       }
  98.     }
  99.       else
  100.     if (TREE_CODE (t) == VAR_DECL)
  101.       {
  102.         if (TREE_PUBLIC (t) && DECL_INITIAL (t))
  103.           type = "PUBLIC ";
  104.         else if (TREE_EXTERNAL (t))
  105.           {
  106.         type = "EXTRN ";
  107.         switch (int_size_in_bytes (TREE_TYPE (t)))
  108.           {
  109.           case 1: size = "BYTE"; break;
  110.           case 2: size = "WORD"; break;
  111.           case 4: size = "DWORD"; break;
  112.           case 8: size = "QWORD"; break;
  113.           default: size = "BYTE"; break;
  114.           }
  115.           }
  116.       }
  117.       if (type)
  118.     { 
  119.       fputs (type, aux_asm_out_file);
  120.       putc (' ', aux_asm_out_file);
  121.       assemble_name (aux_asm_out_file, IDENTIFIER_POINTER (DECL_NAME (t)));
  122.       if (size)
  123.         fprintf (aux_asm_out_file, ":%s", size);
  124.       fprintf (aux_asm_out_file, "\t\t; %d,%d,%d,%d,%d",
  125.            TREE_EXTERNAL (t), TREE_PUBLIC (t), TREE_STATIC (t),
  126.            DECL_INITIAL (t), TREE_CODE (t));
  127.       putc ('\n', aux_asm_out_file);
  128.     }
  129.     }
  130.   nreverse (tr);
  131. }
  132.  
  133. /*  If we are using a library which does not follow the underscore convention,
  134. (which is absolutely necessary for masm, since it has hundreds of reserved
  135.  words), we do not put an underscore in front of the following names.
  136. It was produced by having a foo /tmp/foo.c which included standard library h
  137.   files, and then using
  138.   cat /tmp/foo.m | sed -e 's/EXTRN  /"/g' -e 's/:[a-zA-Z]+/",/g'  | sort > masm-lib.h
  139. It will be nice when we have our own libraries!
  140.  */
  141.  
  142. /* #include <string.h> */
  143.  
  144. char *no_prefix_names[] = {
  145. #include "masm-lib.h"
  146. };
  147.  
  148. static int
  149. node_compare (a, b)
  150.      char **a, **b;
  151. {
  152.   return strcmp (*a, *b);
  153. }
  154.  
  155. /*  Masm needs extrn references for ALL symbols written,
  156.     unless they are defined in this file.  However unnecessary extrn
  157.     references to functions, cause their code to be linked in.
  158.     To avoid this we mark function declarations whose names have been
  159.     written.
  160.     Make local varialbes
  161.     */
  162.  
  163. void
  164. mark_name_used (name)
  165.      char *name;
  166. {
  167.   tree t = get_identifier (name);
  168.   if (IDENTIFIER_GLOBAL_VALUE (t)
  169.       && TREE_CODE (IDENTIFIER_GLOBAL_VALUE (t)) == FUNCTION_DECL)
  170.     TREE_ASM_WRITTEN (IDENTIFIER_GLOBAL_VALUE (t)) = 1;
  171. }
  172.  
  173. static int number_no_prefix_names = 0;
  174. int use_prefix = 1;
  175.  
  176. asm_output_labelref (file, name)
  177.      int file;
  178.      char *name;
  179. {
  180.   int i;
  181.   char *ans;
  182.   char *test[1];
  183.  
  184.   mark_name_used (name);
  185.   ans = 0;
  186.   test[0] = name;
  187.   if (!number_no_prefix_names)
  188.     {
  189.       for (i = 0;; i++)
  190.     if (*(no_prefix_names[i]) == 0)
  191.       {
  192.         number_no_prefix_names = i;
  193.         break;
  194.       }
  195.     }
  196.   if (use_prefix)
  197.     ans = 
  198.       (char *)
  199.     bsearch (test, no_prefix_names, number_no_prefix_names,
  200.          sizeof (char *), node_compare);
  201.   if (ans || !use_prefix)
  202.     fprintf (file, name);
  203.   else
  204.     fprintf (file, "_%s", name);
  205. }
  206.  
  207. void 
  208. asm_library_declare (fun)
  209.      rtx fun;     
  210. {
  211.   tree iden; 
  212.   iden = get_identifier (XSTR (fun, 0));
  213.   if (!TREE_ASM_WRITTEN (iden)) 
  214.     {
  215.       fprintf (aux_asm_out_file, "EXTRN "); 
  216.       assemble_name (aux_asm_out_file, XSTR (fun, 0)); 
  217.       fprintf (aux_asm_out_file, ":NEAR ; library\n"); 
  218.       TREE_ASM_WRITTEN (iden) = 1;
  219.     }
  220. }
  221.  
  222. /* list of implicit declares identifier_node uid's
  223.    We must track implicit declares, since we cannot call them extern,
  224.    until we are sure they will not be static defined in this file.
  225.  */
  226.